My meme

My meme is of an image of a Rabbids cartoon character looking confused and a man passed out on the floor - the cartoon is how I first felt when attempting to code in R for the first time and I had not idea why it was not running properly, and the man is how I felt after fixing my code and it finally working (my brain was exhausted and I wanted to fall asleep).

 library(magick)


textimg1 <- image_blank(width = 891,
                        height = 100,
                        color = "#000000") %>%
  image_annotate(text = "When you try to code for the first time and it doesn't work",
                 color ="#FFFFFF",
                 size = 35,
                 font = "Impact",
                 gravity = "center")

rabbit <- image_read("https://a.pinatafarm.com/891x900/8c98f3115d/rayman-raving-rabbid-weird-eye-cartoon.jpg")

together1 <- c(textimg1, rabbit)

stack1 <- image_append(together1, stack = TRUE)

# First part of the meme done, now onto the second part

textimg2 <- image_blank(width = 891,
                        height = 100,
                        color = "#000000") %>%
  image_annotate(text = "When you finally fix your code after hours of debugging",
                 color = "#FFFFFF",
                 size = 35,
                 font = "Impact",
                 gravity = "center")

man <- image_read("https://st3.depositphotos.com/1177973/12900/i/950/depositphotos_129002234-stock-photo-tired-drunk-man-after-party.jpg") %>%
  image_scale(891)
                      
together2 <- c(textimg2, man)

stack2 <- image_append(together2, stack = TRUE)

# Second part of the meme done, now need to put both together

stackboth <- c(stack1, stack2)

mymeme <- image_append(stackboth, stack = TRUE)

mymeme

image_write(mymeme, "my_meme.png")

My animated GIF

My animated GIF is of a cat being measured in sauce packets as it grows up (despite opposition from its haters), and I choose this because I thought it was very cute and funny - the text “He’s Heating Up” refers to producer Charlie Heat’s tag that usually plays before the beat drop and start of a chorus in one of his songs (the explosion is the release of this heat).

library(magick)

cat1 <- image_read("https://preview.redd.it/z38gfulfs3t91.jpg?auto=webp&s=60f99b5d8397a8f4894506a57c1bad952743719d") %>%
  image_scale(200) %>%
    image_border("#000000", "10x20")

cat2 <- image_read("https://pbs.twimg.com/media/FewNDAaWYAI1bks.png") %>%
  image_scale(200) %>%
    image_border("#000000", "10x20") 

cat3 <- image_read("https://preview.redd.it/important-update-from-small-cat-he-is-now-5-sauce-v0-fyx8ui9np1u91.jpg?width=640&crop=smart&auto=webp&s=7d6599cff182d14c97a481c946c8562d8dd6afe1") %>%
  image_scale(200) %>%
    image_border("#000000", "10x20")

cat4 <- image_read("https://preview.redd.it/evolution-of-the-2-sauce-long-cat-v0-scl338fxub0a1.jpg?width=640&crop=smart&auto=webp&s=184806c5db697f972474ff830b928c9dbeda301c") %>%
  image_scale(200) %>%
    image_border("#000000", "10x20")

boom <- image_read("https://abc7amarillo.com/resources/media/69b9b8ad-e24c-485b-b3c9-3ca8f4ecb300-large3x4_nuclearprepare.PNG?1646156274844") %>%
  image_scale(200) %>%
    image_border("#000000", "10x20")

# Above are all the images used for the frames

frame1 <- cat1 %>%
  image_annotate(text = "He's", size = 26, color = "#000000", gravity = "center") %>%
    image_annotate(text = "He's", size = 25, color = "#FFFFFF", gravity = "center")

frame2 <- cat2 %>%
  image_annotate(text = "Heating", size = 26, color = "#000000", gravity = "center") %>%
    image_annotate(text = "Heating", size = 25, color = "#FFFFFF", gravity = "center")
  
frame3 <- cat3 %>%
  image_annotate(text = "Up", size = 26, color = "#000000", gravity = "center") %>%
    image_annotate(text = "Up", size = 25, color = "#FFFFFF", gravity = "center")
  
frame4 <- boom

frame5 <- cat4 %>%
  image_blur(15, 5)

frame6 <- cat4 %>%
  image_annotate(text = "7 sauce long", size = 26, color = "#000000", gravity = "center") %>%
    image_annotate(text = "7 sauce long", size = 25, color = "#FFFFFF", gravity = "center")

frame7 <- image_charcoal(cat4)

# Above are all the frames used

frames <- c(frame1, frame2, frame3, frame4, frame5, frame6, frame7)


animation <- image_animate(frames, fps = 0.5) %>%
  image_annotate(text = "Haters said he would never be 7 sauce long", size = 10, color = "#FFFFFF", gravity = "north")

animation 

image_write(animation, "my_animation.gif")
@import url('https://fonts.googleapis.com/css2?family=Open+Sans:wght@300&display=swap');
p {
font-weight: bold;
}
body {
font-family: 'Open Sans', sans-serif;
background-color: #EDC5F5;
}